home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SPCFORTRESS.SFX / space fortress (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-10-11  |  4.4 KB  |  124 lines
  1. 0 POKE52,48:POKE56,48:CLR:E$="[144][159][156][158][129][149][150][151][152][153][154][155]":F$="[155][154][153][152][151][150][149][129][158][156][144]"
  2. 1 POKE 53280,0:POKE 53281,0:FOR T=54272 TO 54296:POKE T,0:NEXTT
  3. 2 PRINT"[147][158]PLEASE WAIT"
  4. 3 GOSUB 9
  5. 4 PRINT"[147]":POKE 53280,7:POKE 53281,6
  6. 5 GOTO 80
  7. 9 POKE 53272,(PEEK(53272)AND 240)OR 12
  8. 10 POKE 56334,PEEK(56334)AND 254
  9. 15 POKE 1,PEEK(1)AND 251
  10. 20 FOR X=12288 TO 12799:POKE X,PEEK(X+40960):NEXTX
  11. 25 READ B:IF B=-1THEN 50
  12. 35 FOR Q=BTOB+7
  13. 40 READ A:POKE Q,A
  14. 45 NEXT Q:GOTO 25
  15. 50 POKE 1,PEEK(1)OR 4
  16. 55 POKE 56334,PEEK(56334)OR 1
  17. 60 POKE 53272,(PEEK(53272)AND 240)OR 5
  18. 75 RETURN
  19. 80 PRINT"[144]                                        "
  20. 81 PRINT"****************************************"
  21. 82 PRINT"[159][166][166][166][166][166][166][166][166][166][166][166][166][166]";C$;"SPACE FORTRESS[159][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  22. 83 PRINT"****************************************"
  23. 84 PRINT"[144]                                        "
  24. 85 PRINT"           BY:";D$;"SETH HOPKINSON"
  25. 86 PRINT:PRINT"[158]   TO YOU FROM : SETH,ANDY,& CLIFFORD"
  26. 87 PRINT"[150]       DO YOU NEED INSTRUCTIONS?"
  27. 88 GET A$
  28. 89 IF A$="Y"THEN97
  29. 90 IF A$="N"THENPOKE 53280,0:POKE 53281,0:GOTO 129
  30. 95 B=INT(RND(1)*16)+1
  31. 96 C$=MID$(E$,B,1):D$=MID$(F$,B,1):GOTO 80
  32. 97 POKE 53280,0:POKE 53281,0:PRINT"[147]"
  33. 98 PRINT"THE OBJECT OF THE GAME IS TO DISTROY AS"
  34. 99 PRINT"MANY ATACKERS AS YOU CAN BEFORE YOUR"
  35. 100 PRINT"SPACE FORTRESS IS DISTROYED."
  36. 101 PRINT"[159]THE FORTRESS IS EQUIPPED WITH 4 LASERS"
  37. 102 PRINT"POINTING IN EACH DIRECTION(UP,DOWN,LEFT"
  38. 103 PRINT"RIGHT)."
  39. 104 PRINT"TO FIRE A LASER,PUSH THE JOYSTICK IN"
  40. 105 PRINT"THE DESIRED DIRECTION.[158](JOYPORT 2)"
  41. 106 PRINT"[156]YOU START THE GAME WITH 3 FORTRESSES."
  42. 107 PRINT"BONUS FORTRESSES ARE AWARDED AT [154]20000"
  43. 108 PRINT"[156]AND [154]80000 [156]POINTS."
  44. 109 PRINT"   THERE ARE 12 TYPES OF ALIENS PLUS A"
  45. 110 PRINT"BONUS SCREEN AFTER EACH TYPE IS BLASTED.":PRINT"[154]"TAB(15)"HIT ANY KEY"
  46. 111 GET A$:IF A$=""THEN 111
  47. 112 POKE 53272,(PEEK(53272)AND 240)OR 12
  48. 114 PRINT"[147],[159]             LANDERCRAFT          [150]100"
  49. 115 PRINT"-[159]              SPACEFLY            [150]200"
  50. 116 PRINT"/[159]             DISTROYER1           [150]300"
  51. 117 PRINT"[[159]             DISTROYER2           [150]400"
  52. 118 PRINT":[159]               U F O              [150]500"
  53. 119 PRINT";[159]              SPACEDOG            [150]600"
  54. 120 PRINT"<[159]              ASTROBEE            [150]700"
  55. 121 PRINT"=[159]              WARSHIP1            [150]800"
  56. 122 PRINT">[159]              WARSHIP2            [150]900"
  57. 123 PRINT"?[159]              SATELITE           [150]1000"
  58. 124 PRINT"![159]             SPACEBEAST          [150]1100"
  59. 125 PRINT".[159]             DROIDSHIP           [150]1200"
  60. 126 PRINT"[158]     PRESS ANY KEY TO CONTINUE"
  61. 127 GET A$:IF A$=""THEN 127
  62. 128 GOSUB 200
  63. 129 POKE 53272,(PEEK(53272)AND 240)OR 5
  64. 130 GOSUB300:PRINT"[147][158]12..11..10..9..8..7..6..5..4..3..2..1.."
  65. 131 PRINT"[158]LANCH!!!!":PRINT"[144]LOAD";CHR$(34);"SPG";CHR$(34);",8
  66. 132 [151] 198,6
  67. 133 [151] 631,19:[151] 632,13:[151] 633,82:[151] 634,85:[151] 635,78:[151] 636,13
  68. 134 [162]
  69. 200 [151] 53272,([194](53272)[175] 240)[176] 5
  70. 201 [153]"LOADPRINT  THE GAME ENDS IF ANY OF THE FOLLOWING"
  71. 202 [153]"HAPPENS : "
  72. 203 [153]"OPEN  YOU RUN OUT OF FORTRESSES"
  73. 204 [153]"DEFYOU DISTROY ALL 12 TYPES OF ALIENS"
  74. 205 [153]"PRINT  PRESS THE CLRF1PRINT KEYSYS(RESTARTS GAME)"
  75. 206 [153]"SYS           OR"
  76. 207 [153]"CONT  PRESS THE CLRF5CONT KEYSYS(RELOADS MENU)"
  77. 208 [153]" AT THE END OF THE GAME COMPUTER WILL"
  78. 209 [153]"RANK YOU.  PASS ALL LEVELS (1-12) AND   BECOME AN ACE!!!!!"
  79. 210 [153]"SYS              HIT ANY KEY "
  80. 211 [161] A$:[139]A$[178]""[167] 211
  81. 212 [142]
  82. 300 [129]T[178]54272[164]54296:[151]T,0:[130]T
  83. 305 [151]54296,15:[151]54277,10[172]16[170]15:[151]54278,1:[151]54276,129
  84. 310 [151]54284,10[172]16[170]15:[151]54285,1:[151]54283,129
  85. 315 [151]54272,10:[151]54273,10
  86. 320 [151]54279,10:[151]54280,5
  87. 330 [142]
  88. 1000 [131] 12288,255,129,153,153,129,255,153,24
  89. 1001 [131] 12504,24,60,102,102,126,126,36,66
  90. 1002 [131] 12512,17,31,31,17,0,0,0,0
  91. 1003 [131] 12520,255,255,255,255,255,255,255,255
  92. 1004 [131] 12528,102,102,102,102,231,231,0,0
  93. 1005 [131] 12536,0,0,0,24,24,0,0,0
  94. 1006 [131] 12552,24,24,126,189,189,60,102,231
  95. 1007 [131] 12568,195,195,36,24,24,36,195,195
  96. 1008 [131] 12576,85,85,85,85,85,85,85,85
  97. 1009 [131] 12584,255,255,255,231,231,255,255,255
  98. 1010 [131] 12592,0,24,24,24,24,60,60,60
  99. 1011 [131] 12608,0,0,224,254,254,224,0,0
  100. 1012 [131] 12616,0,0,7,127,127,7,0,0
  101. 1013 [131] 12632,60,60,60,24,24,24,24,0
  102. 1014 [131] 12600,136,248,248,136,0,0,0,0
  103. 1015 [131] 12640,24,60,102,102,126,90,66,231
  104. 1016 [131] 12648,189,66,165,129,189,153,66,189
  105. 1017 [131] 12656,60,24,255,189,60,36,36,102
  106. 1018 [131] 12664,24,24,36,36,102,255,153,153
  107. 1019 [131] 12672,0,126,70,74,82,98,126,0
  108. 1020 [131] 12680,0,24,56,24,24,24,60,0
  109. 1021 [131] 12688,0,62,68,8,16,32,126,0
  110. 1022 [131] 12696,0,126,2,126,126,2,126,0
  111. 1023 [131] 12704,0,66,66,126,2,2,2,0
  112. 1024 [131] 12712,0,126,64,124,2,2,124,0
  113. 1025 [131] 12720,0,8,16,32,124,66,124,0
  114. 1026 [131] 12728,0,126,4,8,16,32,64,0
  115. 1027 [131] 12736,0,126,66,126,126,66,126,0
  116. 1028 [131] 12744,0,62,66,62,2,2,2,0
  117. 1030 [131] 12752,66,36,24,255,126,60,24,0
  118. 1031 [131] 12760,4,135,127,124,124,108,108,108
  119. 1032 [131] 12768,36,24,126,255,219,189,60,24
  120. 1033 [131] 12776,0,129,153,231,231,153,129,0
  121. 1034 [131] 12784,0,24,90,231,231,90,24,0
  122. 1035 [131] 12792,60,24,189,231,231,189,24,60
  123. 1036 [131] -1
  124.